home *** CD-ROM | disk | FTP | other *** search
/ Fifty: Elektronik / FIFTY Elektronik (PS_Computer_Vertrieb).iso / ps8 / fty1043 / gepackt.exe / BEISPIEL / SSD_TEST.SMD < prev   
Encoding:
Text File  |  1992-08-01  |  3.2 KB  |  303 lines
  1. PROGRAM 
  2. ATTRIBUTE
  3. TVCENTER
  4. DOFF
  5. OBJ_OUT
  6. PREVIEW
  7. TEXTFAKTOR
  8.  3.00000000000182E-0001
  9. CHAR_FILE
  10. SANS.CHR
  11. AUSDRUCKSVERGRÖßERUNG
  12.  2.00000000000000E+0000
  13. ANPASSUNG
  14. NIE
  15. LINIENDICKE
  16.  1.00000000000000E+0000
  17. RAND LINKS
  18.  3.00000000000000E+0001
  19. RAND RECHTS
  20.  4.00000000000000E+0001
  21. RAND OBEN
  22.  1.50000000000000E+0001
  23. RAND UNTEN
  24.  1.00000000000000E+0001
  25. NEUE SEITE
  26. FALSE
  27. ABSTAND
  28.  5.00000000000000E+0000
  29. ATTR_END
  30. PROCEDURE SSD-Tester
  31. ATTRIBUTE
  32. TEXT
  33. Struktogramm zum Test der Quelltext-Skelett-
  34. Ausgabe von G.E.S.y
  35. TEXTEND
  36. GROESSE
  37.  1.00000000000000E+0000
  38. GROESSE_ROOTNAME
  39.  2.00000000000000E+0000
  40. ATTR_END
  41. BEGIN
  42. ANWEISUNG
  43. ATTRIBUTE
  44. TEXT
  45. Anw
  46. TEXTEND
  47. GROESSE
  48.  1.00000000000000E+0000
  49. ATTR_END
  50. WHILE
  51. ATTRIBUTE
  52. TEXT
  53. While
  54. TEXTEND
  55. GROESSE
  56.  1.00000000000000E+0000
  57. ATTR_END
  58. UNDEFINED
  59. ATTRIBUTE
  60. TEXT
  61. *
  62. TEXTEND
  63. GROESSE
  64.  1.00000000000000E+0000
  65. ATTR_END
  66. END
  67. REPEAT
  68. ATTRIBUTE
  69. TEXT
  70. Until
  71. TEXTEND
  72. GROESSE
  73.  1.00000000000000E+0000
  74. ATTR_END
  75. UNDEFINED
  76. ATTRIBUTE
  77. TEXT
  78. *
  79. TEXTEND
  80. GROESSE
  81.  1.00000000000000E+0000
  82. ATTR_END
  83. END
  84. FOR
  85. ATTRIBUTE
  86. TEXT
  87. For u
  88. TEXTEND
  89. GROESSE
  90.  1.00000000000000E+0000
  91. TEXT2
  92. For o
  93. TEXTEND
  94. GROESSE2
  95.  1.00000000000000E+0000
  96. ATTR_END
  97. UNDEFINED
  98. ATTRIBUTE
  99. TEXT
  100. *
  101. TEXTEND
  102. GROESSE
  103.  1.00000000000000E+0000
  104. ATTR_END
  105. END
  106. IF
  107. ATTRIBUTE
  108. TEXT
  109. if
  110. TEXTEND
  111. GROESSE
  112.  1.00000000000000E+0000
  113. ATTR_END
  114. XIF
  115. ATTRIBUTE
  116. TEXT
  117. +
  118. TEXTEND
  119. GROESSE
  120.  1.00000000000000E+0000
  121. ATTR_END
  122. UNDEFINED
  123. ATTRIBUTE
  124. TEXT
  125. *
  126. TEXTEND
  127. GROESSE
  128.  1.00000000000000E+0000
  129. ATTR_END
  130. ELSE
  131. XIF
  132. ATTRIBUTE
  133. TEXT
  134. -
  135. TEXTEND
  136. GROESSE
  137.  1.00000000000000E+0000
  138. ATTR_END
  139. UNDEFINED
  140. ATTRIBUTE
  141. TEXT
  142. *
  143. TEXTEND
  144. GROESSE
  145.  1.00000000000000E+0000
  146. ATTR_END
  147. END
  148. CASE
  149. ATTRIBUTE
  150. TEXT
  151. case
  152. TEXTEND
  153. GROESSE
  154.  1.00000000000000E+0000
  155. ATTR_END
  156. BEGIN
  157. XCASE
  158. ATTRIBUTE
  159. TEXT
  160. ?
  161. TEXTEND
  162. GROESSE
  163.  1.00000000000000E+0000
  164. ATTR_END
  165. WHILE
  166. ATTRIBUTE
  167. TEXT
  168. CASE 1
  169. TEXTEND
  170. GROESSE
  171.  1.00000000000000E+0000
  172. ATTR_END
  173. UNDEFINED
  174. ATTRIBUTE
  175. TEXT
  176. *
  177. TEXTEND
  178. GROESSE
  179.  1.00000000000000E+0000
  180. ATTR_END
  181. END
  182. END
  183. BEGIN
  184. XCASE
  185. ATTRIBUTE
  186. TEXT
  187. ?
  188. TEXTEND
  189. GROESSE
  190.  1.00000000000000E+0000
  191. ATTR_END
  192. WHILE
  193. ATTRIBUTE
  194. TEXT
  195. CASE 2
  196. TEXTEND
  197. GROESSE
  198.  1.00000000000000E+0000
  199. ATTR_END
  200. UNDEFINED
  201. ATTRIBUTE
  202. TEXT
  203. *
  204. TEXTEND
  205. GROESSE
  206.  1.00000000000000E+0000
  207. ATTR_END
  208. END
  209. END
  210. BEGIN
  211. XCASE
  212. ATTRIBUTE
  213. TEXT
  214. ?
  215. TEXTEND
  216. GROESSE
  217.  1.00000000000000E+0000
  218. ATTR_END
  219. WHILE
  220. ATTRIBUTE
  221. TEXT
  222. CASE 3
  223. TEXTEND
  224. GROESSE
  225.  1.00000000000000E+0000
  226. ATTR_END
  227. UNDEFINED
  228. ATTRIBUTE
  229. TEXT
  230. *
  231. TEXTEND
  232. GROESSE
  233.  1.00000000000000E+0000
  234. ATTR_END
  235. END
  236. END
  237. END
  238. PROCEDURE UnterPRG
  239. ATTRIBUTE
  240. TEXT
  241. UnterPRG-Text
  242. TEXTEND
  243. GROESSE
  244.  1.00000000000000E+0000
  245. NAME
  246. UnterPRG
  247. GROESSE_NAME
  248.  1.50000000000000E+0000
  249. ATTR_END
  250. PARALLEL
  251. ATTRIBUTE
  252. TEXT
  253. *
  254. TEXTEND
  255. GROESSE
  256.  1.00000000000000E+0000
  257. ATTR_END
  258. BEGIN
  259. UNDEFINED
  260. ATTRIBUTE
  261. TEXT
  262. *
  263. TEXTEND
  264. GROESSE
  265.  1.00000000000000E+0000
  266. ATTR_END
  267. END
  268. BEGIN
  269. UNDEFINED
  270. ATTRIBUTE
  271. TEXT
  272. *
  273. TEXTEND
  274. GROESSE
  275.  1.00000000000000E+0000
  276. ATTR_END
  277. END
  278. BEGIN
  279. UNDEFINED
  280. ATTRIBUTE
  281. TEXT
  282. *
  283. TEXTEND
  284. GROESSE
  285.  1.00000000000000E+0000
  286. ATTR_END
  287. END
  288. END
  289. EXIT Ausgang
  290. ATTRIBUTE
  291. TEXT
  292. Ausgang-Text
  293. TEXTEND
  294. GROESSE
  295.  1.00000000000000E+0000
  296. NAME
  297. Ausgang
  298. GROESSE_NAME
  299.  1.50000000000000E+0000
  300. ATTR_END
  301. END
  302.  
  303.